#!
$_ = "filename = test.txt";
$filename = $1 if(/filename\s*=\s*(.*)$/);

$_ = "Gooooooooooooooooooogle";
print "$&\n" if(/o+/);
@array = qw(frog dog hog);
foreach (@array)
{
    print "$_ matched\n" if (/fr|d|hog/);
}
